﻿Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel
Imports System.Data

Namespace BusinessLogic
    Public Class Rating
        Implements ModelLayer.IRating

        Public Function LoadBySite() As DataTable
            Return DataAccess.RatingData.LoadBySite(Me)
        End Function

        Public Sub Save()
            DataAccess.RatingData.Save(Me)
        End Sub


        Dim _Comments As String
        Public Property Comments() As String Implements ModelLayer.IRating.Comments
            Get
                Return _Comments
            End Get
            Set(ByVal value As String)
                _Comments = value
            End Set
        End Property

        Dim _DatetimeStamp As Date
        Public Property DatetimeStamp() As Date Implements ModelLayer.IRating.DatetimeStamp
            Get
                Return _DatetimeStamp
            End Get
            Set(ByVal value As Date)
                _DatetimeStamp = value
            End Set
        End Property

        Dim _IPAddress As String
        Public Property IPAddress() As String Implements ModelLayer.IRating.IPAddress
            Get
                Return _IPAddress
            End Get
            Set(ByVal value As String)
                _IPAddress = value
            End Set
        End Property

        Dim _Rating As Integer
        Public Property Rating() As Integer Implements ModelLayer.IRating.Rating
            Get
                Return _Rating
            End Get
            Set(ByVal value As Integer)
                _Rating = value
            End Set
        End Property

        Dim _Username As String
        Public Property Username() As String Implements ModelLayer.IRating.Username
            Get
                Return _Username
            End Get
            Set(ByVal value As String)
                _Username = value
            End Set
        End Property

        Dim _Website_Name As String
        Public Property Website_Name() As String Implements ModelLayer.IRating.Website_Name
            Get
                Return _Website_Name
            End Get
            Set(ByVal value As String)
                _Website_Name = value
            End Set
        End Property
    End Class
End Namespace